﻿Namespace Instrumentacao

    <Serializable()> _
    Public Class Semaforo

        Private _id As Nullable(Of Long)
        Public Overridable Property Id() As Nullable(Of Long)
            Get
                Return _id
            End Get
            Set(ByVal value As Nullable(Of Long))
                _id = value
            End Set
        End Property

        Private _idClass As String
        Public Overridable Property IdClass() As String
            Get
                Return _idClass
            End Get
            Set(ByVal value As String)
                _idClass = value
            End Set
        End Property

        Private _status As StatusSemaforo
        Public Overridable Property Status() As StatusSemaforo
            Get
                Return _status
            End Get
            Set(ByVal value As StatusSemaforo)
                _status = value
            End Set
        End Property

        Private _computerName As String
        Public Overridable Property ComputerName() As String
            Get
                Return _computerName
            End Get
            Set(ByVal value As String)
                _computerName = value
            End Set
        End Property

        Private _job As String
        Public Overridable Property Job() As String
            Get
                Return _job
            End Get
            Set(ByVal value As String)
                _job = value
            End Set
        End Property

        Private _rotina As String
        Public Overridable Property Rotina() As String
            Get
                Return _rotina
            End Get
            Set(ByVal value As String)
                _rotina = value
            End Set
        End Property

        Private _timeStamp As DateTime
        Public Overridable Property TimeStamp() As DateTime
            Get
                Return _timeStamp
            End Get
            Set(ByVal value As DateTime)
                _timeStamp = value
            End Set
        End Property

        Private _inicio As Nullable(Of DateTime)
        Public Overridable Property Inicio() As Nullable(Of DateTime)
            Get
                Return _inicio
            End Get
            Set(ByVal value As Nullable(Of DateTime))
                _inicio = value
            End Set
        End Property

        Private _fim As Nullable(Of DateTime)
        Public Overridable Property Fim() As Nullable(Of DateTime)
            Get
                Return _fim
            End Get
            Set(ByVal value As Nullable(Of DateTime))
                _fim = value
            End Set
        End Property

    End Class

End Namespace